<%@ Language=VBScript %>
<%

dim Valid
dim resultado
dim Usuario
dim Clave
dim Aplicacion
Usuario = Request.Form("UsrId")
Clave = Request.Form("Password1")
Aplicacion = Request.Form("Select1")
set Valid = server.CreateObject("CompDato.Usuario")
resultado = Valid.ValidarUsuarioAplicacion(Usuario,Clave,Aplicacion)
if resultado = 1
'	Response.Redirect "login.asp"
	Response.Write "<html>"
	Response.Write "Usuario NO EXISTE"
	Response.Write "</html>"
end if
%>

